home *** CD-ROM | disk | FTP | other *** search
/ Day Cry / Day Cry CD.bin / oh_towns / tetujin / src.lzh / GRATIF.C < prev    next >
Text File  |  1994-09-04  |  6KB  |  283 lines
  1. #include <stdio.h>
  2. #include <stdlib.h>
  3. #include <string.h>
  4. #include <winb.h>
  5. #include <te.h>
  6. #include <fntb.h>
  7. #include <gui.h>
  8. #include <file_dlg.h>
  9. #include <tifflib.h>
  10. #include <egb.h>
  11. #include <mos.h>
  12. #include <snd.h>
  13. #include "tetujin.h"
  14.  
  15. static FILE *fptif ;
  16. static int xtif, ytif ;
  17. static int colorMode ;
  18. static char *imageBuf ;
  19. static int counter ;
  20.  
  21. /* tiff check head (stack:4096Byteê╚Åπ) */
  22.  
  23. tiffCheckHead( char *name, int *c, int *x, int *y,
  24.                int *comp, int *fill, long *strip, long *clut )
  25. {
  26.     FILE *fp ;
  27.     char work[4096] ;
  28.  
  29.     if( ( fp = fopen( name, "rb" ) ) == NULL )return READ_FAIL ;
  30.         /* âtâ@âCâïâIü[âvâô */
  31.     fread( work, 1, 4096, fp );    /* ì┼Åëé╠âfü[â^âìü[âh */
  32.         /* âwâbâ_é╠ë≡É═ */
  33.     if( TIFF_getHead( work, 4096 ) < 0 ){
  34.         fclose( fp );
  35.         return ILLEGAL_DATA ;
  36.     }
  37.     fclose( fp );
  38.         /* â^âOé╠ôαùeé╠â`âFâbâN */
  39.     *c = TIFF_checkMode( x, y, comp, fill, strip, clut );
  40.     return NOERR ;
  41. }
  42.  
  43. /*
  44.     1600û£ÉFùp TIFF loader
  45.  
  46.     32k, 1600û£ÉFé╠tifdataé≡1600û£ÉFâfü[â^é╔ò╧è╖é╡é╚é¬éτô╟é▌ì₧é▐í
  47.     worké═ DECOMP_WORK_SIZE + LOADBUFSIZE + EXPBUFSIZEâoâCâgòKùví
  48.     âtâ@âCâïû╝nameé╠tifé≡âoâbâtâ@bufferé╔ô╟é▌Åoé╖í
  49.     dx, dyé╔èGé╠æσé½é│é≡ò╘é╖í
  50. */
  51.  
  52. /* âëâCâuâëâèé⌐éτî─é╬éΩéΘüCâoâbâtâ@é╔æ╬é╖éΘæÇì∞é╠è╓Éö */
  53. static tifLoadGet( bp, size )
  54. char *bp ;
  55. int size ;
  56. {
  57.     if( fread( bp, size, 1, fptif ) < 1 ) 
  58.         return -1 ;
  59.     return NOERR ;
  60. }
  61.  
  62. static tifLoadPut( buf, lofs, lines ) 
  63. char *buf ;
  64. int lofs, lines ;
  65. {
  66.     int i ;
  67.  
  68.     if( lofs*xtif + lines*xtif > xtif*ytif )
  69.         return -1 ;
  70.  
  71.     if( colorMode == 24 )
  72.     {
  73.         for( i=0 ; i<lines*xtif*3 ; i++ )
  74.         {
  75.             BYTE( imageBuf + lofs*xtif*3 + i )
  76.             = BYTE( buf + i ) ;
  77.         }
  78.     }
  79.     else if( colorMode == 16 )
  80.     {
  81.         for( i=0 ; i<lines*xtif ; i++ )
  82.         {
  83.             int temp, r, g, b ;
  84.  
  85.             temp = WORD( buf + i*2 ) ;
  86.             b = temp & 0x1f ;
  87.             r = ( temp >> 5 ) & 0x1f ;
  88.             g = ( temp >> 10 ) & 0x1f ;
  89.             b <<= 3 ; r <<= 3 ; g <<= 3 ;
  90.             BYTE( imageBuf + lofs*xtif*3 + i*3 ) = r ;
  91.             BYTE( imageBuf + lofs*xtif*3 + i*3 + 1 ) = g ;
  92.             BYTE( imageBuf + lofs*xtif*3 + i*3 + 2 ) = b ;
  93.         }
  94.     }
  95.  
  96.     return NOERR ;
  97. }
  98.  
  99. tifLoad16m( char *work, char *name, char *buffer, int *dx, int *dy )
  100. {
  101.     char *lbp, *dbp, *cbuf ;
  102.     int lbsize, dbsize,bpp, d_line ;
  103.     int comp, fill ;
  104.     long strip, clut, dw ;
  105.  
  106.     imageBuf = buffer ;
  107.  
  108.     lbsize = LOADBUFSIZE ;     /* é╗éΩé╝éΩé╠âoâbâtâ@é╠âTâCâY */
  109.     dbsize = EXPBUFSIZE ;
  110.     lbp = work;            /* âìü[âhâoâbâtâ@ */
  111.     dbp = lbp + lbsize;        /* ôWèJâoâbâtâ@ */
  112.     cbuf = dbp + dbsize;        /* ê│ÅkôWèJùpâÅü[âN */
  113.         /* DECOMP_WORK_SIZEé¬tifflib.hé╔ÆΦï`é│éΩé─éΘé¬
  114.         lbsize+dbsize+DECOMP_WORK_SIZEé¬worké╠æσé½é│é≡
  115.         é▒éªé╚éóéµéñé╔Æìê╙é╖éΘé▒é╞ */
  116.     if( ( fptif = fopen( name, "rb" ) ) == NULL )return READ_FAIL ;
  117.         /* âtâ@âCâïâIü[âvâô */
  118.     fread( lbp, 1, lbsize, fptif );    /* ì┼Åëé╠âfü[â^âìü[âh */
  119.         /* lbsizeÆ÷é╠âfü[â^é¬û│é¡é─éαok! */
  120.     /* âwâbâ_é╠ë≡É═ */
  121.     if( TIFF_getHead( lbp, lbsize ) < 0 ){
  122.         fclose( fptif );
  123.         return ILLEGAL_DATA ;
  124.     }
  125.     /* â^âOé╠ôαùeé╠â`âFâbâN */
  126.     bpp = TIFF_checkMode( &xtif,&ytif,&comp,&fill,&strip,&clut );
  127.     if( (bpp != 16) && (bpp != 24) ){
  128.         fclose( fptif );
  129.         return ILLEGAL_DATA ;
  130.     }
  131.     colorMode = bpp ;
  132.     *dx = xtif ;
  133.     *dy = ytif ;
  134.  
  135.     /* âoâbâtâ@æÇì∞è╓Éöé╠ôoÿ^ */
  136.     TIFF_setLoadFunc(  tifLoadPut, tifLoadGet ) ;
  137.     dw = xtif ;
  138.     /* 16ÉFâéü[âhé╠ÅΩìç,ëíò√îⁿé≡8âhâbâgÆPê╩é┼ê╡éñé╜é▀üCêΩìsé╠âfü[â^
  139.        âTâCâYé≡îvÄZé╖éΘì█é╔üC8âhâbâgÆPê╩é╔Æ▓É«é╡é─é¿é¡òKùvé¬éáéΘ */
  140. //    if( bpp == 4)
  141. //        if( dw & 7 )
  142. //            dw += 8 - (dw & 7) ;
  143.     /* ôWèJùpâoâbâtâ@é╔ë╜ìsò¬é╠âfü[â^é¬ôⁿéΘé⌐é╠îvÄZ  */
  144.     d_line = dbsize / ((dw * bpp + 7)/ 8) ;
  145.     /* TIFFâfü[â^ô╟é▌ì₧é▌  */
  146.     TIFF_loadImage( bpp,xtif,ytif,strip, fill, comp, dbp, dw, d_line, cbuf );
  147.     fclose( fptif );
  148.     return NOERR ;
  149. }
  150.  
  151. /* 1600û£ÉFé⌐éτ32kÉFé╔ò╧è╖é╖éΘè╓Éö */
  152.  
  153. cov16mTo32k( char *sour, char *dest, int n )
  154. {
  155.     int i, r, g, b ;
  156.  
  157.     for( i=0 ; i<n ; i++ )
  158.     {
  159.         r = BYTE( sour + i*3 ) ;
  160.         g = BYTE( sour + i*3 + 1 ) ;
  161.         b = BYTE( sour + i*3 + 2 ) ;
  162.         r >>= 3 ; g >>= 3 ; b >>= 3 ;
  163.         WORD( dest + i*2 ) = b + (r << 5) + (g << 10) ;
  164.     }
  165.     return NOERR ;
  166. }
  167.  
  168. /*
  169.     1600û£ÉFùp TIFF saver
  170.  
  171.     1600û£ÉFé╠tifdataé≡bufferé⌐éτsaveí
  172.     worké═ COMP_WORK_SIZE + SAVEBUFSIZE + GETBUFSIZEâoâCâgòKùví
  173.     âtâ@âCâïû╝é═nameí
  174.     x, yé═èGé╠æσé½é│í
  175. */
  176.  
  177. /* âëâCâuâëâèé⌐éτî─é╬éΩéΘüCâoâbâtâ@é╔æ╬é╖éΘæÇì∞é╠è╓Éö */
  178. static tifSavePut( bp, size )
  179. char *bp ;
  180. int size ;
  181. {
  182.     if( fwrite( bp, size, 1, fptif ) < 1 ) 
  183.         return -1 ;
  184.     counter += size ;
  185.     return NOERR ;
  186. }
  187.  
  188. static tifSaveGet( buf, lofs, lines ) 
  189. char *buf ;
  190. int lofs, lines ;
  191. {
  192.     int i ;
  193.  
  194.     if( lofs*xtif + lines*xtif > xtif*ytif )
  195.         return -1 ;
  196.  
  197.     if( colorMode == 24 )
  198.     {
  199.         for( i=0 ; i<lines*xtif*3 ; i++ )
  200.         {
  201.             BYTE( buf + i )
  202.             = BYTE( imageBuf + lofs*xtif*3 + i ) ;
  203.         }
  204.     }
  205.     else if( colorMode == 16 )
  206.     {
  207.         for( i=0 ; i<lines*xtif*2 ; i++ )
  208.         {
  209.             BYTE( buf + i )
  210.             = BYTE( imageBuf + lofs*xtif*2 + i ) ;
  211.         }
  212.     }
  213.  
  214.     return NOERR ;
  215. }
  216.  
  217. tifSave32kAnd16m
  218. (
  219.   char *work, char *name, char *buffer, int bpp, int comp, int x, int y 
  220. )
  221. {
  222.     char *sbp, *ibp, *cbuf ;
  223.     int sbsize, ibsize, i_line, compsize, dw ;
  224.  
  225.     if( (bpp != 16) && (bpp != 24) )
  226.         return ILLEGAL_DATA ;
  227.     colorMode = bpp ;
  228.  
  229.     imageBuf = buffer ;
  230.     if( comp )comp = 5 ;
  231.     else comp = 1 ;
  232.     xtif = x ;
  233.     ytif = y ;
  234.     counter = 0 ;
  235.  
  236.     sbsize = SAVEBUFSIZE ;     /* é╗éΩé╝éΩé╠âoâbâtâ@é╠âTâCâY */
  237.     ibsize = GETBUFSIZE ;
  238.     sbp = work;            /* âìü[âhâoâbâtâ@ */
  239.     ibp = sbp + sbsize;        /* ôWèJâoâbâtâ@ */
  240.     cbuf = ibp + ibsize;        /* ê│ÅkôWèJùpâÅü[âN */
  241.         /* COMP_WORK_SIZEé¬tifflib.hé╔ÆΦï`é│éΩé─éΘé¬
  242.         sbsize+ibsize+DECOMP_WORK_SIZEé¬worké╠æσé½é│é≡
  243.         é▒éªé╚éóéµéñé╔Æìê╙é╖éΘé▒é╞ */
  244.  
  245.         /* âtâ@âCâïâIü[âvâô */
  246.     if( ( fptif = fopen( name, "wb" ) ) == NULL )
  247.         return WRITE_FAIL ;
  248.     fseek( fptif, 512, SEEK_SET );    /* headerò¬èJé»éΘ */
  249.  
  250.     /* âoâbâtâ@æÇì∞è╓Éöé╠ôoÿ^ */
  251.     TIFF_setSaveFunc(  tifSavePut, tifSaveGet ) ;
  252.     dw = xtif ;
  253.     /* ôWèJùpâoâbâtâ@é╔ë╜ìsò¬é╠âfü[â^é¬ôⁿéΘé⌐é╠îvÄZ  */
  254.     i_line = ibsize / ((dw * bpp + 7)/ 8) ;
  255.     /* TIFFâfü[â^save  */
  256.     if
  257.     (
  258.       TIFF_saveImage( bpp,xtif,ytif,comp, sbp, sbsize, ibp, dw, i_line, cbuf )
  259.       <= 0
  260.     )
  261.     {
  262.         fclose( fptif ) ;
  263.         remove( name ) ;        /* del */
  264.         return WRITE_FAIL ;
  265.     }
  266.  
  267.     /* TIFF head  */
  268.     if( comp == 1 )compsize = 0 ;
  269.     else compsize = counter ;
  270.     TIFF_setHead( ibp, bpp, xtif, ytif, compsize, ibp ) ;
  271.     fseek( fptif, 0, SEEK_SET );
  272.     if( fwrite( ibp, 512, 1, fptif ) < 1 )
  273.     {
  274.         fclose( fptif ) ;
  275.         remove( name ) ;        /* del */
  276.         return WRITE_FAIL ;
  277.     }
  278.  
  279.     fclose( fptif );
  280.     return NOERR ;
  281. }
  282.  
  283.